home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue66 / SQLComp / InterBaseDemo / UFmMain.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-09-20  |  1.4 KB  |  67 lines
  1. unit UFmMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Db, Grids, DBGrids, ExtCtrls, IBCustomDataSet, IBQuery, IBDatabase,
  8.   DMSQLIBX, DMSQLCriteria;
  9.  
  10. type
  11.   TFmMain = class(TForm)
  12.     EtFullName: TDMSQLEdit;
  13.     DsResult: TDataSource;
  14.     EtHireDateFrom: TDMSQLEdit;
  15.     PbBuildSQL: TButton;
  16.     EtEmpNo: TDMSQLEdit;
  17.     QyResult: TDMSQLIBQuery;
  18.     GdResult: TDBGrid;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     Label3: TLabel;
  22.     EtHireDateTo: TDMSQLEdit;
  23.     EtSQL: TMemo;
  24.     PbClear: TButton;
  25.     Label4: TLabel;
  26.     Label5: TLabel;
  27.     EtSalaryFrom: TDMSQLEdit;
  28.     Label6: TLabel;
  29.     EtSalaryTo: TDMSQLEdit;
  30.     EtDeptNo: TDMSQLEdit;
  31.     Label7: TLabel;
  32.     DB: TIBDatabase;
  33.     Bevel1: TBevel;
  34.     LbJobCode: TDMSQLListBox;
  35.     Label8: TLabel;
  36.     Trans: TIBTransaction;
  37.     procedure PbBuildSQLClick(Sender: TObject);
  38.     procedure PbClearClick(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. var
  46.   FmMain: TFmMain;
  47.  
  48. implementation
  49.  
  50. {$R *.DFM}
  51.  
  52. procedure TFmMain.PbBuildSQLClick(Sender: TObject);
  53. begin
  54.   try
  55.     QyResult.Implementor.BuildSQL(Self);
  56.   finally
  57.     EtSQL.Lines := QyResult.SQL;
  58.   end;
  59. end;
  60.  
  61. procedure TFmMain.PbClearClick(Sender: TObject);
  62. begin
  63.   QyResult.Implementor.ClearCriteria(Self);
  64. end;
  65.  
  66. end.
  67.